CREATE INDEX û przyk│ad instrukcji
W tym przyk│adzie tworzony jest indeks sk│adaj╣cy siΩ z p≤l TelDomowy i TelWewnΩtrzny tabeli Pracownicy.
Sub CreateIndexX1()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Utw≤rz indeks NowyIndeks w tabeli Pracownicy.
dbs.Execute _ "CREATE INDEX NowyIndeks ON Pracownicy " & _
"(TelDomowy, TelWewnΩtrzny);"
dbs.Close
End Sub
W tym przyk│adzie tworzony jest indeks w tabeli Klienci sk│adaj╣cy siΩ z pola KodKlienta. Wszystkie rekordy musz╣ zawieraµ r≤┐ne dane w polu KodKlienta, niedozwolone s╣ r≤wnie┐ warto£ci Null.
Sub CreateIndexX2()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Utw≤rz unikatowy indeks, KodKln,
' sk│adaj╣cy siΩ z pola KodKlienta.
dbs.Execute "CREATE UNIQUE INDEX KodKln " _
& "ON Klienci (KodKlienta) " _
& "WITH DISALLOW NULL;"
dbs.Close
End Sub